home *** CD-ROM | disk | FTP | other *** search
/ Microsoft Interactive CD Sampler / Microsoft Interactive CD Sampler.iso / DEMOS / PICTURE / PIDEMO.EXE / PIDEMO.dxr / 00069.ls < prev    next >
Encoding:
Text File  |  1996-09-05  |  1006 b   |  36 lines
  1. on mouseDown
  2.   repeat while the stillDown = 1
  3.     set the locH of sprite 20 to the mouseH
  4.     set the locV of sprite 20 to the mouseV
  5.     if rollOver(4) and (the castNum of sprite 4 = the number of member "skipbox") then
  6.       set the castNum of sprite 4 to the number of member "skipdown"
  7.     else
  8.       if rollOver(4) = 0 then
  9.         set the castNum of sprite 4 to the number of member "skipbox"
  10.       end if
  11.     end if
  12.     updateStage()
  13.   end repeat
  14. end
  15.  
  16. on mouseUp
  17.   if rollOver(4) and (the castNum of sprite 4 = the number of member "skipdown") then
  18.     set the castNum of sprite 4 to the number of member "skipbox"
  19.     updateStage()
  20.     set the movieRate of sprite 2 to 0
  21.     puppetSprite(20, 0)
  22.     set the visible of sprite 15 to 0
  23.     puppetSprite(3, 0)
  24.     puppetSprite(4, 0)
  25.     unLoad()
  26.     startTimer()
  27.     repeat while the timer < 30
  28.       nothing()
  29.     end repeat
  30.     go(the frame + 1)
  31.   else
  32.     set the castNum of sprite 4 to the number of member "skipbox"
  33.     updateStage()
  34.   end if
  35. end
  36.